<% response.buffer = true %> <% editmode = 0 If Request.QueryString("edit") = "1" Then editmode = 1 Else editmode = 0 End If If editmode = 1 Then Response.Write "
Add-New      Reindex

" End If %> <% If editmode = 1 Then Response.Write "" End If %> <% On Error Resume Next Dim startyear, endyear startyear = Request.QueryString("start") endyear = Request.QueryString("end") Dim adoCon Dim rsGuestbook Dim strSQL Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bm.mdb"),,0 Set rsGuestbook = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM SongBook WHERE ID1 > 0 " If editmode = 1 Then ''continue Else strSQL = strSQL & " AND Active='T' " End If If startyear<>"" and Not IsNull(startyear) and endyear<>"" and Not IsNull(endyear) Then strSQL = strSQL & " AND (ddd >= #01/01/" & startyear & " 00:00:000# AND ddd < #12/31/" & endyear & " 23:59:59#) " End If strSQL = strSQL & " ORDER by ddd " rsGuestbook.Open strSQL, adoCon linecounter = 0 Do While not rsGuestbook.EOF If linecounter = 0 Then Response.Write "" linecounter = 1 Else Response.Write "" linecounter = 0 End If If editmode = 1 Then If rsGuestbook("Active")<>"T" Then Response.Write "" End If Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" & vbCrLf rsGuestbook.MoveNext Loop Set rsGuestbook = Nothing Set adoCon = Nothing %>

Active	Ref#	Pop	R&B	Date	Label	Artist	Song
" Else Response.Write "	" End If Response.Write rsGuestbook("Active") Response.Write "	" If editmode = 1 Then Response.Write "[" & rsGuestbook("ID") & "]" Else Response.Write rsGuestbook("ID") End If Response.Write "	" If rsGuestbook("Pop") > 0 Then Response.Write rsGuestbook("Pop") End If Response.Write "	" If rsGuestbook("RB") > 0 Then Response.Write rsGuestbook("RB") End If Response.Write "	" Response.Write LEFT(MonthName(DatePart("m",rsGuestbook("ddd"))),3) & "-" & DatePart("yyyy",rsGuestbook("ddd")) Response.Write "	" Response.Write rsGuestbook("Label") Response.Write "	" Response.Write rsGuestbook("Artist") Response.Write "	" If rsGuestbook("ClassPlay")<>"" AND Not IsNull(rsGuestbook("ClassPlay")) Then If rsGuestbook("ClassPlay")="True" Then Response.Write "" End If End If Response.Write rsGuestbook("Song") Response.Write "